home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Jumpstart / Multimedia Microsoft Jumpstart Version 1.1a (Microsoft).BIN / develpmt / source / roadshow / animate.txt < prev    next >
Encoding:
Text File  |  1993-10-14  |  601 b   |  24 lines
  1. Option Explicit
  2.  
  3. Sub Animation_ObjMouseMove (XLoc As Integer, YLoc As Integer, ObjectType As Integer, ObjectIndex As Integer, ObjectName As String)
  4.     Label1.Caption = ObjectName
  5. End Sub
  6.  
  7. Sub Animation_Play (Playing As Integer)
  8.     Animation.Play = True
  9. End Sub
  10.  
  11. Sub Form_Load ()
  12.     Animation.AnimFileName = "bumble.mwf"
  13.     Animation.AnimName = "Bumble Bee"
  14.     Animation.Play = True
  15. End Sub
  16.  
  17. Sub Form_Resize ()
  18.     Animation.Left = 0
  19.     Animation.Top = Label1.Top + Label1.Height
  20.     Animation.Height = ScaleHeight
  21.     Animation.Width = ScaleWidth - Animation.Top
  22. End Sub
  23.  
  24.